(DEFPROP PROGIT 
 (LAMBDA NIL
  (PROG (Z)
   A    (TERPRI)
	(SCANSET)
	(START)
	(SETQ Z (ERRSET (<EXP>) T))
	(SCANRESET)
	(COND ((OR (NULL Z) (NULL (CAR Z))) (PRINT (QUOTE YOU_BLEW_IT)) (GO A)))
	(SETQ Z (ERRSET (EVAL (TOP)) T))
	(COND ((ATOM Z) (PRINT (QUOTE ERROR_IN_EVALUATION)) (GO A)))
	(PRINT (CAR Z))
	(GO A))) 
EXPR)

(DEFPROP TRYTIL 
 (LAMBDA(CL CH ED COND)
  (PROG (NEWNAME XYZ1 AUTO FILENAM PRNO TIME1 AXNO)
	(SETQ PRNO 0)
	(SETQ FILENAM (QUOTE (P R O G)))
	(SETQ TIME1 (DIFFERENCE (TIME) (GCTIME)))
	(SETQ XYZ1 (COND ((EQ (CAR CL) (QUOTE *CL)) (*CL (CDR CL))) (T (INITIALAX1 CL))))
	(SETQ NEWNAME (INITIAL XYZ1))
	(COND
	 ((EQ (CAR CH) (QUOTE *CHOICE))
	  (COND ((SETQ STRATEGY (BUILTCH (SETQ SAVESTR (CDR CH))))) (T (RETURN NIL))))
	 (T (RETURN NIL)))
	(COND ((EQ (CAR ED) (QUOTE *EDIT)) (COND ((SETQ EDITSTRAT (BUILTED (CDR ED)))) (T (RETURN NIL))))
	      (T (RETURN NIL)))
	(RETURN
	 (ATTEMPT XYZ1
		  (LIST STRATEGY
 			SUPPORT
 			EDITSTRAT
 			MERGE
 			ORDER
 			DEBUG
 			DEPTH
 			LENGTH
 			ANCESTRY
 			PMODEL
 			NMODEL
 			PFLG
 			EQUAL
 			PDEPTH
 			DLIST)
 		  COND)))) 
EXPR)

(DEFPROP FIND 
 (LAMBDA(CL PAT)
  (PROG NIL
	(COND ((EQ (CAR L) (QUOTE *CL)) (SETQ CL (*CL (CDR CL)))))
	(COND ((NOT (EQ (CAR PAT) (QUOTE *PATTERN))) (PRINT (QUOTE HSM)) (RETURN NIL)))
	(RETURN (MAPIT CL (LIST (QUOTE FUNCTION) (LIST (QUOTE LAMBDA) (QUOTE (C)) (CDR PAT))) (INITIAL CL))))) 
EXPR)

(DEFPROP DECLARIT 
 (LAMBDA(X)
  (PROG (Z)
	(SETQ X (CDR X))
	(COND ((NOT (MEMQ (CAR X) DECOP)) (PRINT (QUOTE LOSING_DECLARATION)) (RETURN NIL)))
	(SETQ Z (CDR (ASSOC (CAR X) DECTBL)))
	(COND ((EQ Z (QUOTE IVAR)) (MAKOVAR (SETQ IVAR (CADR X))))
	      ((EQ Z (QUOTE EQUAL)) (SETQ EQUAL (CAADR X)))
	      (T (SET Z (CADR X))))
	(RETURN T))) 
EXPR)